home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
351-375
/
disk_352
/
mg
/
rexx
/
point.mg
< prev
next >
Wrap
Text File
|
1992-05-06
|
727b
|
24 lines
/* exercise the rexx-point & rexx-mark commands */
options failat 2
'rexx-point' point
'rexx-mark' mark
'end-of-buffer'
'rexx-insert "*** point ***\n"'
'rexx-insert' """we got" point.0 "items\n"""
'rexx-insert' """point is on line" point.1 "like so\n"""
'rexx-insert' '"'point.3'\n"'
if point.2 = 1 then 'rexx-insert "|\n"'
else 'rexx-insert' '"' || copies(" ", point.2 - 1) || '|\n"'
if mark.0 = 0 then 'rexx-insert' """There is no mark\n"
else do
'rexx-insert "*** mark ***\n"'
'rexx-insert' """we got" mark.0 "items\n"""
'rexx-insert' """mark is on line" mark.1 "like so\n"""
'rexx-insert' '"'mark.3'\n"'
if mark.2 = 1 then 'rexx-insert "|\n"'
else 'rexx-insert' '"' || copies(" ", mark.2 - 1) || '|\n"'
end
exit 0